home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 June / 1994-06b.d64 / super-alarm iii (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  13KB  |  399 lines
  1. 23 print"[147]":poke53280,0:poke53281,0
  2. 24 print tab(8)"[211][213][208][197][210]-[193][204][193][210][205][146][150] version 3"
  3. 25 printtab(7)"[151]p[158]ub[153]li[129]c[151] d[156]om[155]a[129]i[154]n"
  4. 26 print"       [154][163][155][163][153][163][150][163][155][163][158][163] [163][153][163][155][163][149][163][150][163][163]"
  5. 27 print"[158]updated on [202]anuary 8, 1989"
  6. 28 print"[156]created on [207]ctober 20, 1988"
  7. 29 print"[159]by:[203]irk [205]ook"
  8. 30 print"[159]with help from:[153][208]eter [200]itchcock"
  9. 31 print
  10. 34 print"[212]his program uses military time"
  11. 35 print
  12. 40 print"[212]o set time use 6 digits."
  13. 45 print"example: 8:05 am would be 080500"
  14. 50 print"         2:10 pm would be 141000"
  15. 54 print
  16. 55 print
  17. 56 print"[158][[198][158]]ile wake"
  18. 60 print"[158][[201][158]]nstructions"
  19. 61 print"[158][[205][158]]usic test/player"
  20. 62 print"[158][[193][158]]larm test"
  21. 70 print"[158][[215][158]]ake to music [193][206][217] [159].mus file(s)
  22. 71 [153]"sys[(NULL)sys]eircing alarm"
  23. 72 [153]"sys[lensys]lock only"
  24. 73 [153]"sys[(NULL)sys]uit
  25. 74 get z$:if z$=""then 74
  26. 75 if z$="w"then goto 86
  27. 76 if z$="i"then goto 2920
  28. 77 if z$="f"then goto 3049
  29. 78 if z$="q"then goto 3020
  30. 80 if z$="c"then goto 90
  31. 81 if z$="p"then goto 84
  32. 82 if z$="m"then goto 219
  33. 83 if z$="a"then goto 190
  34. 84 input"[208]lease set the time to wake up.";x$
  35. 85 goto 150
  36. 86 input"[208]lease set the time to wake up.";x$
  37. 90 input"[208]lease set time";ti$
  38. 91 input"[151][215]ant to see the clock";a$
  39. 92 if a$="n"then poke646,0
  40. 93 if a$="y"then poke646,8
  41. 95 print"[147]"
  42. 100 print"[147]";spc(15)"";ti$
  43. 105 if ti$=x$ then gosub 120
  44. 110 print"[147]";spc(15)"";ti$
  45. 115 goto 100
  46. 120 poke 54296,15
  47. 130 restore
  48. 131 goto 219
  49. 150 input"[208]lease set time";ti$
  50. 151 input"[152][215]ant to see clock";a$
  51. 152 if a$="y"then poke646,13
  52. 153 if a$="n"then poke646,0
  53. 155 print"[147]"
  54. 160 print"[147]";spc(15)"";ti$
  55. 165 if ti$=x$ then gosub 180
  56. 170 print"[147]";spc(15)"";ti$
  57. 175 goto 160
  58. 180 poke 54296,15
  59. 185 restore
  60. 190 poke 19,54:for i=54272to54296:pokei,0:next:poke54272,12
  61. 191 print"[147][215][193][203][197][160][213][208]!!!"
  62. 192 poke54296,15:poke54277,0:poke54278,240:poke54275,8:poke54276,65
  63. 193 poke54273,1
  64. 194 poke53280,0:poke53281,0
  65. 195 for i=1 to 100:poke54273,i:next
  66. 196 poke53280,2:poke53281,2
  67. 197 for i=100 to 1 step-1:poke54273,i:next
  68. 198 goto194
  69. 219 goto 220
  70. 220 goto230
  71. 230 dimpl$(144),pn$(144),se(144),tx$(5):dn=8:sa=780:sx=781:sy=782:sp=783
  72. 240 gosub2160
  73. 250 ov$=""
  74. 260 do$="":ro$="[146]":u$="[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  75. 270 bl$="                                       "
  76. 280 o$="                                        "
  77. 290 oo$="                                        "
  78. 300 iff=0thenprintchr$(147)
  79. 310 gosub590:iff=1then370
  80. 320 print"[147]";:poke53280,0:poke53281,0
  81. 330 fors=55296to55335:pokes,0:pokes+960,0:next
  82. 340 fors=1024to1063:pokes,244:pokes+960,244:next
  83. 350 print"[144]";:a$="":gosub610
  84. 360 printdo$;:a$="":gosub610
  85. 370 print"":iff=0then1250
  86. 375 print"[147]"
  87. 377 print""
  88. 380 wait56320,16
  89. 390 pokess,7:q=0
  90. 400 fors=55296to55335:co=int(1+rnd(1)*14):pokes,co:pokes+(999-q),co:q=q+2:next
  91. 410 print"";:iff=0thengosub640
  92. 420 print"[146]";:f=1
  93. 430 print"";:a$=bl$:gosub610
  94. 440 print"";:a$=bl$:gosub610
  95. 450 print"[145]";:forx=1to5:printleft$(do$,10+x);:a$=tx$(x):gosub610:next
  96. 460 print"                                        "
  97. 470 print"";:co=149
  98. 480 forc=1to9
  99. 481 poke 53281,0:poke 53280,0
  100. 482 fordert=1to01:nextdert
  101. 483 poke 53281,1:poke 53280,1
  102. 490 co=int(1+rnd(1)*14):poke646,co:printleft$(do$,c+1);do$;left$(u$,c);
  103. 500 getre$:ifre$=" "thenpokess,0:sysdp:r=0:forl=54276to54296:pokel,0:next
  104. 510 ifre$=" "then870
  105. 520 ifre$<>"^"then550
  106. 530 pokess,0:sysdp:forl=54276to54296:pokel,0:next:f=0:sd=a
  107. 540 gosub590:goto1250
  108. 550 next:print"";
  109. 560 ifpeek(ss)then480
  110. 570 sysdp
  111. 580 forl=54276to54296:pokel,0:next:goto870
  112. 590 print"";:forjk=1to23:printbl$;" ";:next
  113. 600 print"";chr$(142):return
  114. 610 printspc(20-len(a$)/2)a$;:return
  115. 620 return
  116. 630 return
  117. 640 gosub590:print"[146]";
  118. 650 poke646,4:gosub610:gosub620:gosub590:q=0
  119. 660 fors=55296to55335:co=int(1+rnd(1)*14):pokes,co:pokes+(999-q),co:q=q+2: next
  120. 670 print"[158]":a$="reading directory":gosub610:print
  121. 680 x=1:open15,8,15,"i0":close15:a$=""
  122. 690 open8,8,0,"$0":forc=1to8:get#8,a$:next:c=1:dn$="":forc=1to16
  123. 700 get#8,a$:dn$=dn$+a$:next:get#8,a$:get#8,a$:get#8,a$
  124. 710 dn$=dn$+a$:get#8,a$:dn$=dn$+a$:get#8,a$:get#8,a$:dn$=dn$+"/"+a$
  125. 720 get#8,a$:dn$=dn$+a$:get#8,a$:c=1:print"disk title ---> [156]"dn$:print
  126. 730 forh=1to4:get#8,a$:next
  127. 740 get#8,a$:ifst<>0then860
  128. 750 ifa$=""then860
  129. 760 ifasc(a$)<>34then740
  130. 770 get#8,a$:ifasc(a$)<>34thenpn$=pn$+a$:goto770
  131. 780 get#8,a$:ifasc(a$)=32then780
  132. 790 get#8,a$:ifa$<>""then790
  133. 800 printleft$(do$,16);"                                      ";
  134. 810 a$="    "+ pn$:print"[145]";:gosub610
  135. 820 ifright$(pn$,4)<>".mus"then840
  136. 830 pl$(x)=pn$:x=x+1
  137. 840 pn$=""
  138. 850 ifst=0then730
  139. 860 close8:a=x:ns=a-1
  140. 870 gosub590:print"";
  141. 880 ifsk=1then1920
  142. 890 iffy=1then1890
  143. 900 iffg=1then1870
  144. 910 iffr=1thengosub1740:goto1250
  145. 920 gosub590
  146. 930 v=1:ns=a-1:q=0:np=int((a-1)/26)+1:pg=0:fori=1toa:se(i)=.:next
  147. 940 fors=55296to55335:co=int(1+rnd(1)*14):pokes,co:pokes+(999-q),co:q=q+2:next
  148. 950 print"[154]";:ep=26*pg+26:ifpg=np-1thenep=(a-1)
  149. 960 forca=pg*26+1toep
  150. 970 ifca>(pg*26+13)thenprintleft$(ov$,ca+10-(26*pg));:goto990
  151. 980 printleft$(do$,ca-(26*pg)+4);
  152. 990 print""chr$(ca+64-(26*pg))ro$+" ";
  153. 1000 ifse(ca)thenprint"";
  154. 1010 printleft$(pl$(ca),len(pl$(ca))-4)"[154]"
  155. 1020 next
  156. 1030 printleft$(do$,21);
  157. 1050 printleft$(do$,23);
  158. 1060 a$="   return[158]=menu   space[158]=done"
  159. 1070 ifca>26thena$="f7[158]=more"+a$
  160. 1080 gosub610
  161. 1090 print"[156]";
  162. 1100 getan$:ifan$=""then1100
  163. 1110 ifan$="[136]"thenpg=pg+1:ifpg>(np-1)thenpg=0
  164. 1120 ifan$="[136]"thengosub590:goto950
  165. 1130 ifan$=chr$(13)thengosub590:gosub1250
  166. 1140 ifan$=" "andv=1thengosub590:goto1250
  167. 1150 ifan$=" "thenfort=1tov:pl$(t)=pn$(t):next:a=v-1:fy=1:goto1800
  168. 1160 rem done choosing
  169. 1170 ifasc(an$)<65orasc(an$)>90then1100
  170. 1180 n=asc(an$)-64+(26*pg):pn$(v)=pl$(n):se(n)=1
  171. 1190 ifn>ca-1then1100
  172. 1200 ifn<1then1100
  173. 1210 ifn>(pg*26+13)then1230
  174. 1220 fori=55418to55434:pokei+(n-(26*pg))*40,1:next:goto1240
  175. 1230 fori=55437to55453:pokei+(n-13-(26*pg))*40,1:next
  176. 1240 v=v+1:goto1100
  177. 1250 tt=0:print"[158]";:close15
  178. 1260 fors=55296to55335:pokes,0:pokes+960,0:next
  179. 1270 printchr$(14):print"";
  180. 1350 printoo$
  181. 1450 poke646,h:h=h+1:ifh=16thenh=2
  182. 1460 goto 1520
  183. 1470 poke646,14
  184. 1480 ifa$="1"thenfr=1:sk=0:fg=0:fy=0:goto640
  185. 1490 ifa$="2"thensk=0:fg=0:fy=0:sd=0:fr=0:goto1570
  186. 1500 ifa$="3"thensk=0:fg=0:fr=0:fy=0:goto640
  187. 1510 ifa$="4"thensk=1:goto1570
  188. 1520 sd=0:sk=0:fr=0:fy=0:fg=1:goto640
  189. 1530 ifa$="6"thensd=0:sk=0:fr=0:fy=0: fp=1:goto1570
  190. 1540 ifa$="7"thengosub590:print"[147][158]";chr$(142):end
  191. 1570 gosub590:a$="reading directory file.....":print"":gosub610:close8
  192. 1580 open15,8,15,"i0:":open8,8,8,"sidcat,s,r":input#15,y,b$,c,d:close15
  193. 1590 ify=62then1620
  194. 1600 iffp=1thenclose4:open4,4,7
  195. 1610 close8:open8,8,8,"sidcat,s,r": print""
  196. 1620 ify=62thenprint"":a$="you must create a file first":gosub610:close8
  197. 1630 ify=62then forde=1to2000: nextde:gosub590:close15:goto1250
  198. 1640 input#8,dn$:iffp=1thenprint#4," ":print#4,dn$:print#4," "
  199. 1650 input#8,a
  200. 1660 forwe=1toa
  201. 1670 input#8,pl$(we)
  202. 1680 iffp=1thenprint#4,pl$(we)
  203. 1690 next
  204. 1700 iffp=1thenfp=0:print#4," ":print#4," ":close4:close8:gosub590:goto1250
  205. 1710 ifsk=1thenclose8:close15:goto1800
  206. 1720 close8:close15:a=a+1:goto920
  207. 1740 gosub2820:gosub590
  208. 1750 a$="writing directory file":gosub610:close8:open15,8,15,"s0:sidcat"
  209. 1760 close15:open8,8,8,"sidcat,s,w"
  210. 1770 print#8,dn$:print#8,a-1
  211. 1780 forqw=1toa-1:print#8,pl$(qw):next
  212. 1790 close8:r=0:gosub590:return
  213. 1800 gosub590:f=1:sd=1
  214. 1810 pt$=left$(pl$(sd),len(pl$(sd))-4):f=1:rem pt$=file name to print
  215. 1820 print"[158]";:a$="[space] will go to next song":gosub610
  216. 1830 printleft$(do$,19);:a$="^ = new sid-disk":gosub610
  217. 184